Sub muestra_On_Error2()
    Dim i As Integer
    'uno
uno_inicio:
    On Error GoTo error_uno
    Debug.Print "Estoy en uno"
    i = i / 0
uno_fin:
'dos
dos_inicio:
    On Error GoTo error_dos
    Debug.Print "Estoy en dos"
    i = i / 0
dos_fin:
'tres
tres_inicio:
    On Error GoTo error_tres
    Debug.Print "Estoy en tres"
    i = i / 0
tres_fin:
    Exit Sub
error_uno:
    Debug.Print "  Error en uno!!!"
    Resume uno_fin
error_dos:
    Debug.Print "  Error en dos!!!"
    Resume dos_fin
error_tres:
    Debug.Print "  Error en tres!!!"
    Resume tres_fin
End Sub
